home *** CD-ROM | disk | FTP | other *** search
/ PCMania 48 / PCMania CD48_1.iso / pcmania / dscene48 / ejemplo1.pas < prev    next >
Pascal/Delphi Source File  |  1996-07-07  |  947b  |  45 lines
  1.         PROGRAM mueve_un_cuadrado_por_pantalla;
  2.  
  3.         Uses Dos, Crt;
  4.  
  5.         Procedure ModeSet(Mode : Byte); ASSEMBLER;
  6.         ASM
  7.            mov    ah,0
  8.            mov    al,[Mode]
  9.            int    10h
  10.         END;
  11.  
  12.         Procedure Borra_Pantalla;
  13.         Begin
  14.              FillChar(Mem[$a000:0], 64000, 0);
  15.         End;
  16.  
  17.         Procedure Pon_Cuadrado(X,Y  : Word);
  18.         VAR
  19.            iX, iY       : Word;
  20.  
  21.         Begin
  22.              For iY := Y to Y+10 do
  23.              Begin
  24.                   For iX := X to X+10 do Mem[$A000:(320*iY)+iX] := 9;
  25.              End;
  26.         End;
  27.  
  28.         VAR
  29.            X,Y  : Word;
  30.  
  31.         Begin
  32.              ModeSet($13);
  33.  
  34.              Y:=100; X:=0;
  35.  
  36.              While (X<320) do
  37.              Begin
  38.                   Borra_Pantalla;
  39.                   Pon_Cuadrado(X,Y);
  40.                   X:=X+1;
  41.              End;
  42.  
  43.              ModeSet(3);
  44.         End.
  45.